proc userfire
    loop
	get_square (EnemWin, black)
	if comploc (userx, usery) = 1 then
	    putout ("HIT!")
	    coloursq (EnemWin, red, userx, usery)
	    comploc (userx, usery) := 2
	    exit
	elsif comploc (userx, usery) = 2 then
	    putout ("Already Hit There!")
	else
	    coloursq (EnemWin, blue, userx, usery)
	    putout ("Miss")
	    exit
	end if
    end loop
end userfire
